#!/bin/sh
# PCP QA Test No. 758
# Exercise a couple of perl PMDA module bugs/features.
#
# Copyright (c) 2014-2015 Red Hat.
#

seq=`basename $0`
echo "QA output created by $seq"

# get standard environment, filters and checks
. ./common.product
. ./common.filter
. ./common.check

perl -e "use PCP::PMDA" >/dev/null 2>&1
[ $? -eq 0 ] || _notrun "perl PCP::PMDA module not installed"

domain=`sed -n <$PCP_VAR_DIR/pmns/stdpmid -e '/^#define[ 	]QA_TEST_PERL[ 	]/s///p'`
[ -n "$domain" ] || _notrun "Domain for QA_TEST_PERL not defined in stdpmid"
loaded=2

_cleanup()
{
    if pmprobe -I pmcd.agent.status | grep '"test_perl"' >/dev/null
    then
	$sudo rm $PCP_VAR_DIR/config/pmda/$domain.$loaded
	cd $here/pmdas/test_perl
	$sudo ./Remove >>$seq_full 2>&1
	$sudo rm -f domain.h.perl
	cd $here
    fi
}

status=1	# failure is the default!
trap "cd $here; rm -rf $tmp.*; _cleanup; exit \$status" 0 1 2 3 15

echo "domain=$domain" >>$seq_full

# real QA test starts here
cd pmdas/test_perl
cat > $tmp.conf <<EOF
2 0 2147483647
5 1503630694 five
9 1503630694 nine
EOF
$sudo cp $tmp.conf $PCP_VAR_DIR/config/pmda/$domain.$loaded

$sudo ./Install </dev/null \
    | _filter_pmda_install \
    | sed -e '/^Waiting for pmcd/s/\.\.\.[. ]*$/DOTS/' \
    | $PCP_AWK_PROG '
/Check test_perl metrics have appeared/ { if ($10 >= 0 && $10 <= 9) $10 = "N" }
                                        { print }'
cd $here

# start from a known place
pmstore test_perl.some_value 0 \
    | sed -e 's/old value=./old value=N/g'

# need a few invocations to tickle the bug
for i in 1 2 3 4 5; do
    echo "=== Round $i ===" | tee -a $seq_full
    pmprobe \
	test_perl.other_indom.some_value \
	test_perl.some_value \
	test_perl.some_indom.some_value
done

# exercise indom cache re-loading from backing store
echo && echo "=== Bonus Round ===" | tee -a $seq_full
pmstore test_perl.loaded_indom.some_value 0 >>$seq_full
pminfo -f test_perl.loaded_indom.some_value | $here/src/sortinst

# success, all done
status=0
exit
